home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / RPCHANGE.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  122 lines
  1. ;\|
  2. ;RPCHANGE.SRC     Translated from RPCHANGE.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;RPCHANGE 11:17:44 AM  13/ 1/90   |
  4. define(MEDNEW|A|30||)
  5. define(RPOS|A|4||)
  6. define(MEDOLD|A|30||)
  7. define(MEM_AOD|A|1||)
  8. define(NEWDISP|A|1||)
  9. define(NUM|N|3||)
  10. define(YES.NO|A|1||)
  11. open(PATIENT||0|)
  12. open(RP||1|)
  13. open(RPABBREV|||)
  14. trap(Q|G|EXIT)
  15. trap(I|G|EXIT)
  16. START:
  17. clr(RPABBREV|B)
  18. clr(RP|B)
  19. clr(PATIENT|B)
  20. NUM = (0)
  21. MEDOLD = ("")
  22. MEM_AOD = ("")
  23. MEDNEW = ("")
  24. YES.NO = ("")
  25. NEWDISP = ("")
  26. mount(NEWSOMES|S)
  27. enter(MEM_AOD|" AD"|||y|y|n|||n)
  28. enter(RPABBREVIATION||||N|N|N|||N)
  29. find(M|RPABBREVIATION|START|)
  30. MEDOLD = (RPABBREV.NAME)
  31. RPABBREVIATION = ("")
  32. enter(RPABBREVIATION||||N|N|N|||N)
  33. find(M|RPABBREVIATION|START|)
  34. MEDNEW = (RPABBREV.NAME)
  35. enter(NEWDISP|"ANY"|||N|N|N|||N)
  36. enter(YES.NO|"YN"|||Y|N|N|||N)
  37. if YES.NO <> ("Y") goto START
  38. BEGIN:
  39. MEDICATION = (MEDOLD)
  40. find(M|MEDICATION|END|)
  41. RPOS =rcn(RP|G)
  42. if NEWDISP = ("A") goto ALL
  43. NEXT:
  44. RECORD.NUMBER = (RP.REF)
  45. find(M|RECORD.NUMBER||)
  46. RPOS =rcn(RP|S)
  47. if NEWDISP = ("N") do
  48. {
  49. if DISPENSING = ("N") do
  50. {
  51. goto ALL
  52. }
  53. else
  54. {
  55. find(N|RP|END|)
  56. if MEDICATION <> (MEDOLD) goto END
  57. RPOS =rcn(RP|G)
  58. goto NEXT
  59. }
  60. }
  61. if NEWDISP = ("Y") do
  62. {
  63. if DISPENSING = ("Y") do
  64. {
  65. goto ALL
  66. }
  67. else
  68. {
  69. find(N|RP|END|)
  70. if MEDICATION <> (MEDOLD) goto END
  71. RPOS =rcn(RP|G)
  72. goto NEXT
  73. }
  74. }
  75. ALL:
  76. if MEM_AOD <> ("") then AUTO.ON.DEMAND = (MEM_AOD)
  77. NUM = (NUM+1)
  78. MEDICATION = (MEDNEW)
  79. save(RP|N|Y)
  80. goto BEGIN
  81. END:
  82. pmsg("THAT'S ALL FOR THIS DRUG - ENTER A NEW CHANGE OR ESC TO EXIT."|10|20|Y|N|S|)
  83. clrlne(1|20)
  84. goto START
  85. EXIT:
  86. run("recmenu")
  87. \STNEWSOMES
  88.  
  89.           CHANGE MEDICATION GLOBALLY - BE VERY SURE WHAT YOU'RE DOING!
  90.          ┌──────────────────────────────────────────────────────────────┐
  91.          │          FIRST FIND THE OLD DRUG NAME.......                 │
  92.          │          THEN THE NEW DRUG NAME.......                       │
  93.          │          RPABBREVIATION:&    <                               │
  94.          │          OLD DRUG NAME: &                                    │
  95.          │          NEW DRUG NAME: &                                    │
  96.          │CHANGE AUTO.ON.DEMAND TO:& LEAVE BLANK IF NO CHANGE           │
  97.          │ TO JUST CHANGE AUTO.ON.DEMAND LEAVE OLD/NEW DRUG NAMES SAME  │
  98.          │                                                              │
  99.          │   ENTER "A" FOR CHANGE BOTH DISPENSING AND NON - DISPENSING  │
  100.          │   ENTER "N" TO CHANGE ONLY NON - DISPENSING                  │
  101.          │   ENTER "Y" TO CHANGE ONLY DISPENSING - &  BE CAREFUL HERE   │
  102.          │                                                              │
  103.          │           CONTINUE AND CHANGE THE OLD DRUG TO NEW:&          │
  104.          │                                                              │
  105.          │                 &                                 NUM:&      │
  106.          └──────────────────────────────────────────────────────────────┘
  107.        NOTE:NEW ABBREVIATION AND DRUG MUST BE ON ABBREV FILE - ENTER FIRST
  108.  
  109.  
  110.  
  111.  
  112. \
  113. RPABBREVIATION
  114. MEDOLD
  115. MEDNEW
  116. MEM_AOD
  117. NEWDISP
  118. YES.NO
  119. MEDICATION
  120. NUM
  121. \
  122.